Going Down to South Park to Make a Text Analysis using R

I want to analyse South Park. But where do I start?

Data acquired. BINGO! Let’s dig in.

Let’s dig deeper and get sentimental!

gg <- ggplot(by_episode, aes(episode_number, mean_sentiment_score, group = 1, text = text_sent)) +
    geom_col(color = "#592a88") +
    geom_smooth()

ggplotly(gg, tooltip = "text")

Episodes, how popular are you?

gg<- ggplot(by_episode, aes(episode_number, rating, group = 1, text = text_pop)) +
    geom_point(color = "#592a88", alpha = 0.6, size = 3) +
    geom_vline(xintercept = 100, color = "red", linetype = "dashed") +
    geom_smooth()

ggplotly(gg, tooltip = "text")

100 episodes joke - https://en.wikipedia.org/wiki/Cancelled_(South_Park)

Conclusion